TEST

# do multiple layers by not passing the first "leaflet()" call a data argument

library(tidyverse)
library(leaflet)
parks <- sf::read_sf("../data/State_Park_Locations.shp")
streams <- sf::read_sf("../data/Streams_303_d_.shp")

leaflet() %>%
  setView(lng = -96.703090, lat = 40.81928, zoom = 10) %>% 
  addProviderTiles(providers$Esri.NatGeoWorldMap) %>%
  addMarkers(data = parks, popup = ~AreaName, label = ~AreaName) %>% 
  addPolylines(data = streams, color = "blue", 
               popup = ~paste0(Waterbody_, " - ", Impairment))

TEST

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVEVTVAoKYGBge3IgVEVTVH0KIyBkbyBtdWx0aXBsZSBsYXllcnMgYnkgbm90IHBhc3NpbmcgdGhlIGZpcnN0ICJsZWFmbGV0KCkiIGNhbGwgYSBkYXRhIGFyZ3VtZW50CgpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShsZWFmbGV0KQpwYXJrcyA8LSBzZjo6cmVhZF9zZigiLi4vZGF0YS9TdGF0ZV9QYXJrX0xvY2F0aW9ucy5zaHAiKQpzdHJlYW1zIDwtIHNmOjpyZWFkX3NmKCIuLi9kYXRhL1N0cmVhbXNfMzAzX2RfLnNocCIpCgpsZWFmbGV0KCkgJT4lCiAgc2V0VmlldyhsbmcgPSAtOTYuNzAzMDkwLCBsYXQgPSA0MC44MTkyOCwgem9vbSA9IDEwKSAlPiUgCiAgYWRkUHJvdmlkZXJUaWxlcyhwcm92aWRlcnMkRXNyaS5OYXRHZW9Xb3JsZE1hcCkgJT4lCiAgYWRkTWFya2VycyhkYXRhID0gcGFya3MsIHBvcHVwID0gfkFyZWFOYW1lLCBsYWJlbCA9IH5BcmVhTmFtZSkgJT4lIAogIGFkZFBvbHlsaW5lcyhkYXRhID0gc3RyZWFtcywgY29sb3IgPSAiYmx1ZSIsIAogICAgICAgICAgICAgICBwb3B1cCA9IH5wYXN0ZTAoV2F0ZXJib2R5XywgIiAtICIsIEltcGFpcm1lbnQpKQpgYGAKClRFU1QKCg==